This is my import procedure

library(tidyverse)
package ‘tidyverse’ was built under R version 4.0.3Registered S3 methods overwritten by 'dbplyr':
  method         from
  print.tbl_lazy     
  print.tbl_sql      
── Attaching packages ───────────────────────────────────────────────────────── tidyverse 1.3.0 ──
✓ tibble  3.1.0     ✓ dplyr   1.0.5
✓ tidyr   1.1.3     ✓ stringr 1.4.0
✓ readr   1.4.0     ✓ forcats 0.5.1
✓ purrr   0.3.4     
package ‘tibble’ was built under R version 4.0.3package ‘tidyr’ was built under R version 4.0.3package ‘readr’ was built under R version 4.0.3package ‘purrr’ was built under R version 4.0.3package ‘dplyr’ was built under R version 4.0.3package ‘stringr’ was built under R version 4.0.3package ‘forcats’ was built under R version 4.0.3── Conflicts ──────────────────────────────────────────────────────────── tidyverse_conflicts() ──
x dplyr::filter() masks plotly::filter(), stats::filter()
x dplyr::lag()    masks stats::lag()
library(plotly)
libary(readx1)
Error in libary(readx1) : could not find function "libary"

Graph

library(ggplot2)
library(plotly)

phil <- ggplot(data = diamonds, 
            aes(x = cut, fill = clarity)) +
    geom_bar(position = "dodge")

phil



ggplotly(phil)
NA
ad_treatment%>%
  filter(age>=80L & age<= 85L)%>%
  filter(mmse >=15 & mmse <=
           28.8)%>&
  ggplot()+
  aes()
library(ggplot2)
package ‘ggplot2’ was built under R version 4.0.3
ggplot(ad_treatment) +
 aes(x = drug_treatment, y = sex, fill = health_status) +
 geom_boxplot() +
 scale_fill_hue() +
 theme_minimal()

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyBteSBpbXBvcnQgcHJvY2VkdXJlCmBgYHtyfQpsaWJyYXJ5KHJlYWR4bCkKdXJsIDwtICJodHRwczovL2dpdGh1Yi5jb20vcGhpbGJvd3NoZXIvRm91bmRhdGlvbi1vZi10aGUtUi1Xb3JrZmxvdy13b3Jrc2hvcC0yMDE5LTA5LTA2L3Jhdy9tYXN0ZXIvRXhhbXBsZXMvZGF0YS9hZF90cmVhdG1lbnQueGxzeCIKZGVzdGZpbGUgPC0gImFkX3RyZWF0bWVudC54bHN4IgpjdXJsOjpjdXJsX2Rvd25sb2FkKHVybCwgZGVzdGZpbGUpCmFkX3RyZWF0bWVudCA8LSByZWFkX2V4Y2VsKGRlc3RmaWxlKQoKCmFkX3RyZWF0bWVudApgYGAKCgpgYGB7cn0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkocGxvdGx5KQpsaWJhcnkocmVhZHgxKQpgYGAKCgoKCgoKR3JhcGgKCmBgYHtyfQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkocGxvdGx5KQoKcGhpbCA8LSBnZ3Bsb3QoZGF0YSA9IGRpYW1vbmRzLCAKICAgICAgICAgICAgYWVzKHggPSBjdXQsIGZpbGwgPSBjbGFyaXR5KSkgKwogICAgZ2VvbV9iYXIocG9zaXRpb24gPSAiZG9kZ2UiKQoKcGhpbAoKCmdncGxvdGx5KHBoaWwpCgpgYGAKCgpgYGB7cn0KYWRfdHJlYXRtZW50JT4lCiAgZmlsdGVyKGFnZT49ODBMICYgYWdlPD0gODVMKSU+JQogIGZpbHRlcihtbXNlID49MTUgJiBtbXNlIDw9CiAgICAgICAgICAgMjguOCklPiYKICBnZ3Bsb3QoKSsKICBhZXMoKQpgYGAKCgoKYGBge3J9CmxpYnJhcnkoZ2dwbG90MikKCmdncGxvdChhZF90cmVhdG1lbnQpICsKIGFlcyh4ID0gZHJ1Z190cmVhdG1lbnQsIHkgPSBzZXgsIGZpbGwgPSBoZWFsdGhfc3RhdHVzKSArCiBnZW9tX2JveHBsb3QoKSArCiBzY2FsZV9maWxsX2h1ZSgpICsKIHRoZW1lX21pbmltYWwoKQpgYGAKCg==